DIMENSION I(50),Z(10)
1	FORMAT(' TYPE X,Y1,Y2,...ETC. <CR> '/
	1 '  WHERE   X=THE NUMBER OF EQUAL DIVISIONS OF Y'/
	1 '   AND    Y=RHYTHMIC VALUES.  (E.G.  2. = DOTTED HALF)'/
	1 '                 H=HELP '/)
5	FORMAT('  ')
2	FORMAT(12F)
3	FORMAT(' THE NOTE VALUE =',F8.4)
6	FORMAT(50A1)
4	TYPE 5
	TYPE 1
	TYPE 5
	ACCEPT 6,I
	IF(I(1).EQ.'H'.OR.I(1).EQ.'?')GO TO 11
	REREAD 2,X,Y,Z
	IF(X.EQ.0)CALL EXIT
	IDOT=0
	DO 7 K=4,10
7	IF(I(K).EQ.'.'
	1 .aND.(I(K+1).EQ.' '.OR.I(K+1).EQ.'.'))IDOT=IDOT+1
	Y=4./Y
	IF(IDOT.EQ.0)GO TO 88
	V=Y
	DO 10 K=1,IDOT
	V=V/2.
10	Y=V+Y
	IF(Z(1).EQ.0)GO TO 9
88	DO 8 K=1,10
8	IF(Z(K).NE.0)Y=Y+4./Z(K)
9	V=4.*(X/Y)
	TYPE 5
	TYPE 3,V
	GO TO 4
11	TYPE 12
	GO TO 4
12	FORMAT(' ONLY THE 1ST RHYTHMIC VALUE CAN BE DOTTED.'/
	1 '  UP TO 10 VALUES FOR "Y" CAN BE TYPED.'/
	1 ' FOR EXAMPLE:'/
	1 ' TO GET 7 IN THE TIME OF A NORMAL TRIPLET (12TH NOTE) '/
	1 ' TIED TO A HALF TIED TO A SIXTEENTH, TYPE:'/
	1 '     7  12 2 16 <CR>'/
	1 ' TO GET 11 IN THE TIME OF A DOTTED QUARTER, TYPE:'/
	1 '     11 4.  <CR>'/)
	END